home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch07.Authoring / CommandDemos / PreloadNetThing.dir / 00006_scripts.txt < prev    next >
Encoding:
Text File  |  1996-10-22  |  563 b   |  21 lines
  1. on mouseUp
  2.   global gNetFlag
  3.   PreloadNetThing the text of field "argument"
  4.   set gNetFlag = 1
  5. end
  6.  
  7. on idle
  8.     -- note the use of netError() to verify results
  9.     if gNetFlag then
  10.     if netDone() then
  11.       if not(netError() contains "OK") then
  12.         set netText = "Error:" & netError()
  13.       else set netText = "Error:" & netError() && ¬¨
  14.       "MIME:" & netMIME() && "Modified:" & netLastModDate() ¬¨
  15.        && netTextResult()
  16.       if netText <> EMPTY then set the text of ¬¨
  17.        field "results" to netText
  18.       set gNetFlag = 0
  19.     end if
  20.   end if
  21. end